﻿Public Class CHocSinhCRT1
    Private _HoTen, _Email, _GioiTinh, _DiaChi, _TenLop As String
    Private _NgaySinh As DateTime
    Private _MaHS, _MaLop As Integer

    Public Property HoTen()
        Get
            Return _HoTen
        End Get
        Set(ByVal value)
            _HoTen = value
        End Set
    End Property

    Public Property Email()
        Get
            Return _Email
        End Get
        Set(ByVal value)
            _Email = value
        End Set
    End Property

    Public Property GioiTinh()
        Get
            Return _GioiTinh
        End Get
        Set(ByVal value)
            _GioiTinh = value
        End Set
    End Property

    Public Property DiaChi()
        Get
            Return _DiaChi
        End Get
        Set(ByVal value)
            _DiaChi = value
        End Set
    End Property

    Public Property NgaySinh()
        Get
            Return _NgaySinh
        End Get
        Set(ByVal value)
            _NgaySinh = value
        End Set
    End Property

    Public Property MaHS()
        Get
            Return _MaHS
        End Get
        Set(ByVal value)
            _MaHS = value
        End Set
    End Property

    Public Property MaLop()
        Get
            Return _MaLop
        End Get
        Set(ByVal value)
            _MaLop = value
        End Set
    End Property

    Public Property TenLop()
        Get
            Return _TenLop
        End Get
        Set(ByVal value)
            _TenLop = value
        End Set
    End Property

    Public Sub New()
        _MaHS = 0
        _HoTen = ""
        _NgaySinh = New DateTime(1990, 1, 1)
        _Email = ""
        _GioiTinh = ""
        _DiaChi = ""
        _MaLop = 0
        _TenLop = ""
    End Sub
End Class
